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Pour vous permettre de souffler un peu, nous terminons gentiment les notions 
des mois precedents, et nous les mettons en pratique sur un exemple complet, 
detaille et commente. Les bases fondamentales de ce langage puissant doivent 
etre bien comprises pour aborder la suite du cours. 
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2.1. Gerer les variables 

2.2. Gas des fonctions 

3. Un exemple deja rencontre 

4. Conclusion 
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1. INTRODUCTION 

Le mois dernier, une etape psychologique a ete franchie, celle qui vous permettra enfin 
de (aire du Pascal proprement. Nous avons traite des procedures et fonctions. Ce 
mois-ci, nous aliens finir ce chapitre et traiter en detail un exemple. Pour une fois, nous 
commenterons abondamment \e programme propose. Vous pouvez etre 
reconnaissant, car il est banal que nous ne fassions pas ce que nous recommandons 
tiautement. En clair, c'est bien la premiere fois que nous metlrons des commentaires 
dans un programme, mais 11 ne taut pas le dire. Surtout, souvenez-vous que les 
commentaires ne prennent pas de temps en Pascal, puisque le compilateur les ignore, 
ce qui permet d'obtenir un code (le programme compile) sans lourdeur inutile. Done, 
mettez des commentaires !!! 

2. RETOUR SUR LES SOUS-PROGRAMMES 

Nous avons decrit la methode de declaration des sous-programmes. Nous avons dit 
qu'une fonction prend une valeur en elle-meme. Nous avons indique la portee d'une 
variable dans une sous-structure. Maintenant, nous aliens vous donner quelques 
principes acceples generalement. Certains sont surtout utiles au debut, les autres a 
tout instant. 

2.1. Gerer les variables 

Nous avons indique que les variables sont declarees pour /a structure qui la declare 
(pleonasme ?), mais aussi pour celles qui sont incluses dans cette structure. 



var 

i: integer; 



procedure toto; 

begin 

for i:=l to n 



begin 

for i;=l to 100 do 

toto; 

writein; 

end. 



Dans I'exemple ci-dessus, la variable i est connue du programme principal et de la 
procedure toto, mais comment tester proprement sa valeur quand, a ctiaque appel, 
i est modifiee localement : 
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program easai.; 
var 
i Integer; 

procedure toto; 
begin 
for i := 1 to 100 do 
writelii(i} ; 
end; 
begin 
for i := 1 to 2 do 
toto; 
end. 



Dg telles variables sort dites globales. II est cependant bon de iimlter leur usage au 
strict minimum, comme par exemple dans le cas oO la valeur de la variable dans le 
programme appelant est reprise dans le sous-programme. Sinon, il vaut mieux creer 
une nouvelle variable, meme si son nom est proche de celui de (a premiere. Par 
exemple : 



program es8al-2; 
var 



procedure toto; 
var 

ii :integer,- 
begln 
for ii := 1 to 100 do 
Hriteln(i,ii) ; 
end; 
begin 

for i := 1 to 2 do 
toto ; 
end. 



Ici, ii est la variable locale qui travaille comme i le faisait avant, mais i est maintenant 
utilise localement avec sa valeur globale. P!us de confusion possible. Par centre, une 
autre configuration peut etre source de contusion ; 
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program essax; 
var 
i Integer ; 

procedure toto; 
var 
i Integer; 

begin 
for i := 1 to 100 do 
Hrlteln(l) ; 
end; 
begin 

for i := 1 to 2 do 
toto ; 
end. 



lei, dans le sous-programme toto, i est redefinie, et done I'instruction d'eeriture 
WRITELN imprime les nombres de 1 a 100, deux fois de suite, la variable i dans toto 
etant purement locale. Les nuanees sont ici tres importantes, vous le voyez. 
Une bonne habitude est de nommer les variables similaires, au meme niveau, de la 
meme faqon : 



var 

i: integer; 



procedure totol; 

begin 

for ii:=l to n 



procedure toto2 ; 

begin 

for ii:=l to n 



begin 
for i: = 

totol; 
toto2,: 
writeln 
end. 



1 to 100 do 
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Ici, dans totol et toto2, les variables ii jouent un role equivalent, done nous reprenons 
leurs noms de maniere identique, car totol et toto2 sent au meme niveau d'imbrication, 
appeles par la meme structure. Un autre exemple mettant en cause des variables 
passees par valeur : 



var 

i : integer; 



procedure totol { i_main:integer) ; 

begin 

for ii:=l to n do 



procedure toto2 (i_inain : integer) ; 

begin 

for ii:=l to n do 



begin 

for i:=l to 100 do 

totol (i) ; 
toto2 (i) ; 
writeln; 
end. 



Encore une fois, a r 



J d'imbrication egal, le meme nom est repris, i main. 



2.2. Cas des fonctions 

Pour les fonctions, les memes criteres s'appliquent. Mais il faut faire d'autant plus 
attention que la valeur de la fonction est utilisee telle quelle dans le programme qui 
I'appelle. II sera plus difficile de trouver des erreurs avec des fonctions. 
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3. UN EXEMPLE DEJA RENCONTRE 

Vols vous souvenez peut-etre du programme de suivi des notes d'une classe. Nous 
ailons le reprendre, pour I'ecrire en Pascal correct, cette fois-ci. Le listing du 
programme originel est dans le numero 35 de LED-Mlcro, I'enonce dans le numero 34. 
Voici le programme remanie. II est plus clair, et surtout plus agreable d'emploi. II est fait 
usage de procedures, de fonctions, de variables locales et globales. Ne pas oublier 
qu'une variable modifiee au cours d'un sous-programme doit etre passee par adresse, 
pour pouvoir etre mise a jour, done dans I'en-tete de la sous-structure, elle doit etre 
precedes de VAR. 



(input, output); 



nb result = 20, 



type 

nom = Btring[30].- 

tab_nota = array[l. .nb_etud, 1. .nb_i 

tali_noBi = array [ 1 . . nb_etud] o£ nom; 



b_note; 



suit] of real; 



iioyeiine_generale__ 



procedure nombrf 
begin 

write ('nombre c 

readln (o) ; 



itud (var n : integer) ; 
etudiantH da la classe 



procedure nontbre^nc 
begin "" 

write t 'nombre de 

r«adln(n); 



ledure salaie^ncm (va 
1 to etud do 



:udiant de la cla: 



for 



write ( ' nom de 
readln[nm[i]); 
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procedure aaisie_iio 
ii, jj ; integer; 



begin 

writaln; 
£or ii := 1 to etud do 

writelnC pour 1 etudiant 



begin 

nt[ii,jj]:: 

end; 



procedure travail (tb_iiom tab_nom 

travail choiai, n int integer; 
fin boolean; 

procedure choix (var n integer) ; 



■riteltt 


' cho 


11 d 


u travail 


a effect 


uer 


■); 


writeln 


' las 


POHH 


ibilitea 




) ; 




writeln 


tab, 






gene rale 


annL 


sll« 


writeln 


tab, 




moyenne 


generals 




Jails 


writeln 


tab. 




moyenno 


de la clasae 


sur 


writBln 


tab. 




tri des 






write In 


tab. 




fin du travail') ; 







da la claBi 



:ale_annuelle {n 



ii- jj : 


integer; 




moyenne annuella -) 




segin 






for ii := 


1 to etud do 




begin 






for jj 


= 1 to note 


do 


begin 






moy : = 


moy + n[ii, 


Ji 
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function moyenne etud {nm tab nom; 




nt •■ tab note; 




n_et : string) -. real; 








jj, 11 : integer; 




moy 1 xeal; 




(* pour un etudlant *) 




begin 




jj := 0; 




moy := 0; 




for ii z= 1 to etud do 




if n et = mii[ii] then 




jj := ii; 




i£ jj = than 




writelnC problems de nom') 




else 




for ii := 1 to note do 




moy := moy + nt[jj, ii] ; 




moyeniie_etiid := moy / note; 




end; 




function moyenne_inter (nt tab note; 




n_i integer) real; 








moy ; real; 




jj ; integer; 




(• pout une interrogation •) 




begin 




moy := 0; 




for jj := 1 to etud do 




moy := moy + nt[jj, n_i] ,- 




moyenne inter r= moy / etud; 




end; 




pcocedure tri moyennea [mn tab nom; 




nt ; tab_note); 




type 




tab_moy = array [1 . .nb_etud] of real; 




var 




ii, jj, kk : integer; 




moy_max : real; 




t_moy ; tab^moy; 




(* tri par moyenne des etudiants *) 




begin 




writeln; 




for ii := 1 to etud do 




t_moy[ii] := 0; 




for ii := 1 to etud do 




begin 




for jj ■:= 1 to note do 




t moy[ii] := tmoy[i] + nt[ii, j j] ; 




t_inoyIii] := t_niOY[iil / note; 




foe ii := 1 to etud do 




begin 




moy max := 0; 




for jj := 1 to etud do 




if t_moy[jj] > moy_max then 




begin 
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write ('nom de 1 etudiant ' ) ; 

readln[n_et) ; 

write { ' moyenne de ' , n_et , ' ' ) ; 

writeln ( inoyenne_atud (tbnom, tb_nom, 

3 : 

writ* [ 'numaro de 1 intercogation ') 

roadln(n_int) ; 

write ( 'moyenne de 1 interrogation ' , 
Hciteln (moyenTie_inter (tbnote, n_int! 

begin 

Hriteln(' moyeimaB par ordre decroisE 
tEi_jnoy6nn6B (tb_notii, tb_note) ; 

otherwise 

begin 

fin:=£alse; 



^il £in=falsl 



end; 



begln 

Doiiibre_etud(etud) ; 

nonibre_n*te(not6) ; 

saiBie_noni(t_noni) ,- 

Haiaie_note(t_notii, t_note) ; 

travail (t_note, t_nom) ; 
end. 

C'est plus propre, plus puissant. Chaque module est utilisable dans d'autres 
programmes, par simple deplacement. 

4. CONCLUSION 

Nous avons termine la le cours sur les sous-structures, pour leur presentation generale 
tout au moins. Le mois proctiain, un developpement vraiment tres important sera 
propose, la notion de recursivite. Nous verrons, a I'aide de nombreux exemples les 
possibilites que cet outil permet, mais aussi les limites raisonnables a ne pas franchlr. 
En attendant, nous vous proposons, comme exercice, de reprendre les enonces de 
notre numero 34 et de (es programmer a I'aide de sous-structures, correctement, cette 
fois, puisque vous disposez de la possibllite de programmer de fapon structuree. 
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Ce mois-ci, suite de la serie "analyse et programmation d'applications" qui 
servira de support au cours de programmation approfondie pour les mois a venir. 
Nous appliquons aujourd'hui les deux methodes complementaires d'analyse 
d'un projet telles que nous les avons decrites dans nos precedents cours, a 
savoir une methode dite «globale" pour I'editeur de texts, et une approche par 
"essai/erreur.1 (ou maquettage) pour le jeu interactrf. 



ma 



PLAN DU COURS 

1. Etude dun editeur de texte 

- Le programme 

- Les variables globales 
■ te buffer 

• I'ecran 

• caracteres de controle 

• divers 

2. Jeu interactif 

- Deplacement a lecran 

• le trace 

• linteraclion du mouvemenl et de I'affichage 
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Nous voila en plein dans I'analyse de notre projet d'editeur pleine page, et si nous ne 
sommes pas au bout de nos peines, vous vous apercevrez vite que nous arriverons en 
quelques mois a realiser sans nous en rendre compte une application qui semblait 
delicate au premier abord. I! faut prendre I' habitude de ne pas pouvoir tout resoudre en 
quelques lignes sauantes apres dix minutes de reflexion. C'est pourquoi nous ne 
repondrons pas tout de suite a tous les problemes qu'une telle application souleve, 
ctiaque chose en son temps ! 

PREMIERE PARTIE DE L'ETUDE D'UN EDITEUR DE TEXTE 

AvanI de commencer la programmation detaillee, nous aliens decrire I'agencement du 
programme, en separant les modules independents, Comme prevu, cette description 
respectera les regies syntaxiques du pseudo-langage que nous avons etudie au mois 
de decembre. Nous pourrons ainsi detainer des blocs de programmation, que nous 
anatyserons a leur tour... ainsi de suite jusqua ce qu'on obtienne des blocs simples 
que Ton qualifiera d'elementaires. Cela ne veut pas dire qu'ils correspondent a une, 
Instruction du langage, mais plutot a une complexite de programmation sufflsamment' 
taible pour permettre une programmation aisee. 

Le programme 

On le decoupe en trois parties : 

- linitialisation, 

- le corps du programme, 

- la fin de I'application. 

Jusqu'ici, hen de bien nouueau, Voici I'ecriture dans notre pseudo-langage du 

programme a ce niveau de I'analyse. 

debut 

INITIALISER ; (appel a la procedure d'initialisation) 
tant que non(FIN) 

CORPS(FIN) ; (appel a la procedure principale du programme) 

(si I'ulilisateur desire quitter, la variable FIN sera "urai», sinon 
elle vaudra "faux^) 
fin tant 

TERMINE ; (appel a la procedure de fin de programme) 

fin 

Les procedures INITIALISER et TERMINE ne soni pas pour le moment les plus 
importantes, de plus elles dependent dune part du langage de programmation choisi, 
et d'autre pari de I'ordinateur. Nous verrons aussi que, la plupart du temps, la seconde 
procedure est integree au bloc pnncipal CORPS, sous forme d'une option parmi toutes 
les commandes que ce dernier est charge d'interpreter. 

En fait le plus souvent, CORPS gere un menu d' options visible ou non. Pour notre 
editeur, nous avons decide de passer directement en mode plein ecran, mats il serait 
possible d'afficher au depart un menu general presentant les differents choix 
disponibles. Comme nos ambitions sont limitees, il y aura peu d'options ne faisanl pas 
partie du mode pleine page ; ce menu est done inutile. 

Entrons maintenant plus dans le detail, avec I'examen de cette procedure CORPS. 

Nous prenons done comme hypothese que Ton dispose des commandes suivantes, 

codees sous forme de caracteres de controle : 

Insert ; le texte tape est ajoute sur la ligne du curseur, 

Sunmp : le texte tape remplace le texte de la ligne en cours, 

Destruc-Char : le caractere a gauche du curseur est efface, 
Destruc-Ligne : la ligne entiere est detruite, 

Mont : le curseur monte d'une ligne sans affecter le texte, 

Desc : le curseur descend d'une ligne sans affecter le texte, 

Gauche : le curseur va a gauche d'un caractere, 
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Droite 
Termi 



le curseur va a droite dun caractere, 
I'edJtion du texte se termine. 



Les autres commandes seront a ajbuter en fonction de vos besoins et des 
ameliorations que vous souhaitez apporter. On peut maintenant ecrire 
schematiquement la procedure CORPS : 



debut procedure 

LITCAR(c) ; (lecture dun caractere c) 

si "C'est un caractere de controle" alors 

debut si 

suivant la vaieur de c {on teste les differentes valeurs de c) 

Insert : INSERTION ; 

Surimp : SURIMPRESSION 

Destruc-car : EFFACE ; 

Destruc-ligne : EFFAC^LIGNE ; 

Mont : Monte ; 



(on se met en mode insertion) 

(on se met en mode remplacement) 

{on efface un caractere) 

{on efface la llgne) 
(on monte) 



: Fin-'vrai" 
: ERREUR ; 



(on sort de la boucle principale) 
(il n y a pas de fonction 
correspondant a c) 



sinon 

(on ajoute c a I'endroil d(,i curseur) 



Termi 
Autre 

fin suivant 

INSERER(c): 
rin_si 
fin procedure 

II faut done maintenant definir chacun des sous-programmes. On s'apercoit vile que 
ces blocs ne sent pas tout a fait independants. Ainsi par exemple, le passage du mode 
insertion au mode sunmpression ua directement influencer la faqon dont la procedure 
INSERER va modifier la ligne en cours. Par ailleurs, la plupart de ces fonctions 
modifient le texte a lecran, 

Avant dentrerplus dans les details defonctionnement, il nous faut etudier les variables 
principales qui vont, d'une part stocker les informations essentielles et, d'aufre part 
permettre la synctironisation entre les procedures. Cest ce quon appelle plus 
communement les variables globales, De meme, il est necessaire de definir quelques 
constanles importantes qui vont faciliter la portabilite du programme dun ordinateur a 
un autre Nous enprofiterons pour etudier des exemples de procedures d'initialisation 
en BASIC et en PASCAL 

Les variables GLOBALES : 

a. Le buffer 

C'est un tableau de chafne de caracteres, sa faille est definie par une constanle, un 
element du tableau egale une ligne de texte. On associe a ce tableau plusieurs 
variables : 

- le nombre de lignes utilJsees dans le buffer, 

~ le numero de la premiere ligne du buffer correspondant a la premiere ligne de 
I'affichage. 

b. Lecran 

Nous avons besoin de deux variables de positionnement du curseur et pour definir les 
caracterisliques de lecran, de deux constantes determinant la longueur dune ligne et 



le nombre de lignes affichables. 
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c. Caracteres de controle 

Afjn de rester le plus independanl possible du contexle, 11 serait souhaitable de definir 
des constantes pour chaque type doperation, Suivant les implantations, elles seront 
de iype caractere {en PASCAL) ou entier (code ASCII en BASIC), 

d. Divers 

Enfin, on ajoutera le "Beep'^ sonore, utile en cas derreur (caractere de oonlrdle non 
affecte, arnvee en fin de ligne, etc.l ; on peut de cette fapon parametrer le curseur 
affictie, ei te message de fin de buffer tel quil est presente a la figure 1. 
Voici done deux exemples dinitialisalion du confexte : 




A) en PASCAL ; 




Les variables globales ainsi que la plupart des constantes sent definies dans lo corps 
principal du proc|ramme, Cependanl. pour les caracteres non-affichables, le standard 
PASCAL nt: permet pas d'ecnre une conslante sous la forme : 




sonnerie = ctir(7) ; 




II laui done en passer par des vanables globales. 




program EDTTEUR {input .output) ; 

max buffer =2000; 
nb_ligne =24; 
nb col =80; 
fin_de_buffer =' [FIN] '; 






type 




ligne=string[nb_col] ; iou 'packed array[l..nb col] of char' ) 




buffer :array[l. .max buffer] of ligne; 

aonnerie :ohar; 

insert, Euriinp, 

destruc_car, 

....,termi : char; { tous les codes contr61e ) 




y_curseur : integer; { position du curseur 1 
nb_occup, ( nombre de lignes dans le buffer} 
prem_ligne : integer; { numero de la lere ligne du "" ) 
fin, 1 devient 'true' pour sortir} 
mode_ins : boolean; ( ='true' si insertion, ) 
( 'false' si remplacement ) 




procedure INITIALISER; 




begin 

(definition des codes de controle ) 




insert :-chr[9); { ctrl-I ] 
surimp :=cllr[19); { ctrl-S ) 
destruc^char :=chr[4); ( ctrl-D ) 




term! :=chr[6); {ctrl-F } 




{ 'beep' d'erreur ] 
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y_CUrseur 
nb_occup 
preni_ligne 

fin 



il faut ensuite initialis 
effacement + affichage du 

PAGE [output) ; 

writelr (fii 

^ fin de la procedu: 



=chr{7). 


{ctrl-G 1 


on des v 


ariables principal 


-1; 


( le curseur se 




( en haut de 1 ' 


=0; 




=1; 


{ debut du buff 


=false; 




=true,- 


{ par defaut on 



./. 



symbole f in_de_buf fer [en haut) 

; { correspond souvent a un effacement d'ecran 
mais depend de 1 ' implementation du PASCAL | 
de buffer) ; 

INITIALISER ) 



Passons maintenant a la version BASIC ; 

PuJsqu'on ne dispose pas de constantes en BASIC, il faut les remplacer par des 
variables, comme on la faft pour certaines en PASCAL Pour le reste, rien de bien 
different du PASCAL, si ce n'est I' utilisation de variables entieres a la place des 
variables booleennes, et bien sur la nolion fort differente de sous-programme par 
rapport a cells de procedure, Enfm, bien quelle puisse resider dans le sous- 
programme, les declarations du buffer et des constantes associees seront plus 
logiquement effectuees au debut du programme principal, done en tete. 



10 REM 

15 REM 

20 MAX-2000 

30 DIM TS(MAX) 

40 NL=24 :NC-40 

45 

50 GOSUB 1000 



EDITEUR plein ECRAN 

: REM taille du buffer 

: REM declaration une foix pour ti 

: REM constantes dependant de I'o 

REM (taille de I'ecran) 
: REM appel au sous programme d'i 



1000 REM INITIALISATION 

1010 REM definition des constantes code de controle 

1020 CI=9 :REM code ascii de CTRL-I, Insertioi 

1030 CS-19 :REM code ascii de CTRL-S, Surimpres; 

1040 CC=4 :BEM code ascii de CTRL-D, Destruct 



1200 REM sonnerie 

1205 CU$="_" 

1210 SOS-CHR$ (7) 

1215 MFS="[FIN]" 

1220 REM initiali 

1230 PR-I 

1240 »I=1 

1250 X=1:Y=1 

1260 TL=0 

1270 F-0 

1280 REM maitenan 

1290 CLS 

1300 PRINT MFS 

1310 RETURN 



■ et message i 



. de buffer 






iables globalei 
ligne 



:REM premi^ri 
:REM mode insertion 
:REM position du curseur 
:REM buffer vide done Total Ligne = 
:REM le booleen FIN 

on efface I'ecran et on affiche le message 
:REM ou HOME suivant votre BASIC 



I NOTES PERSONNELLES 



Nous aborderons ie mois prochain te cceur du programme avec la definition complete 
de la plupart des procedures (ou sous-programmes) qui sont appelees dans CORPS, 
Nous ne detaillerons pas I'ensemble de ces procedures a la fois en BASIC et en 
PASCAL ; nous donnerons plutot soit Ie programme source en pseudo-langage, soit 
des exemples dans I un ou I autre des langages Si vous avez des problemes 
d adaptation nous approfondirons alors les points precis en BASIC et en PASCAL 



1 — ►OTfl^^ 
ZONE ECRAN 




|le message de fin de buffer 



Definition des VARIABLES GLOBALES et des CONSTANTES 

lei premiere ligne= 1 (on pointe en haut du buffer) 

et celui-ci a 1 ligne utilisee 



LE JEU INTERACTIF 

Contrairement a I'analyse de lediteur de texte, nous allons commencer par etudier el 
essayer de resoudre les parties delicates de la programmation. II y a plusieurs raisons 
a cela. II faut tout d'abord considerer que les imperatifs dun jeu de reflexes imposent 
un faible temps de reponse, II faut done garantir que laffichage a lecran sera rapide. 
Bien evidemment, ces performances sont liees au langage utilise (interprele ou 
compile) mais aussi aux caracteristiques de I'ordinateur dans les differents modes 
graphiques, D'autre part la rectierche d'une bonne methode de programmation nest 
pas simple, aussi vaut-il mieux proceder par essai-erreur, el tester les performances 
de base des routines qui seront amenees a former Ie noyau du programme. 
Bien que Ie "cahier des charges^ tel que nous I'avions precise, n'imposait pas de 
mode graphique (cela essentiellement pour nous permettre de fournir un programme 
facilement adaptable a toute machine), nous allons trailer des mainlenant des 
problemes de rafrafchissement des objets a I'ecran aussi bien en mode texle qu en 
haute resolution. En effet, la majorite d'entre vous a deja envisage la programmation 
d'un jeu et s'est heurte a ce type de probleme. 

DEPLACEMENT A L'ECRAN 

II ne faut pas croire que Ie passage dun programme interprete a une version compilee 
va resoudre des problemes tels que Ie clignotement de laffichage ou la vitesse de 
reaction de la poignee de jeu. Au contraire, on peut sans se tromper affirmer qu'il esl 
possible d'ecrire en BASIC interprete de tree bons et beaux programmes de jeux. Voici 
done quelques exemples d'astuces et solutions suivant les ordinateurs. 



NOTES PERSONNELLES 



A. Le trace des formes 
Le mode texte 

Pas ou peu de diflicultes, puisqu'une partie du travail est effectuee par Tordinateur lui- 
meme. II suffit en effet de se positionner au bon endroit de la page, et d'effectuer un 
..prints (en BASIC) ou un "Write- (en PASCAL), le plus delicat restant la gestion de 
formes sur plusieurs lignes. Nous detaillerons cet aspect dans les prochains numeros, 
puisque c'est en mode texte que nous allons realiser ce programme. 
Les lutins 

Si votre BASIC dispose de ce que Ton appelle des ><sprites» en anglais (c'est-a-dire 
des formes definies a I'avance, que Ton peut disposer n'importe ou sur I'ecran et 
manipuler a I'aide de quelques instructions simples, elles existent notamment dans le 
BASIC des ordinateurs MSX), il ne reste plus qu'a definir les objets comme les missiles, 
et les meteores sous forme de lutins pour ensuite les animer, 
Les transferts de zones memoires 

Vous ne disposez pas de lutins, alors, si vous etes courageux et que vous connaissez 
votre machine sur le bout des doigts, vous pouvez tres bien creer des formes par "BIT» 
images (cf. figure 2) el effectuer les deplacements par des transferts directs dans la 
memoire ecran, Ce n'est le moyen le plus simple de mise en oeuvre mais il 
correspond en fait a ce qu'utilisent les programmeurs des jeux que vous actietez dans' 
le commerce, II vous faudra de plus iliaitriser la programmation en langage mactiine si 
vous voulez optimiser les transferts de ces zones memoires. 
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Le trace par instructions standard (BASIC, PASCAL, etc.) 

Cesl la solution de sagesse dans une premiere approchie de la programmation en 
haute resolution graphique. Apres une description des ordres necessaires a la creation 
de I'objet (la encore tout depend de la richesse du langage dont vous disposez), il suffit 
de parametrer ceite creation de maniere a la rendre independante de la position a 
I ecran (attention aux effets sur les bords) et de I'integrer dans une procedure. Nous 
fournirons le mois prochain des exempies de programmation en haute resolution. 



I NOTES PERSONNELLES 



B. L'interaction du mouvement et de I'affichage 

Quelle que soit la methods de trace des objets, il faut veiller a la synchronisation des 
modifications avec le rafraichissement de i'ecran, C'est-a-dire qu'il faut eviter que le 
spot du televiseur parcoure la forme pendant qu'on ia deplace (figure 3). 




Principe de balayaqe d'un tube video 
(le spot n'esl pas visible sur les parties arisees^ 



BALAYAGE du TUBE VIDEO 




le rectangle est deplace vers la droite au moment ou le spot I'affiche a I'ecran, 
Comme le balayage est plus rapide que la modification de I'objet il y a distor- 
tion de i'affichage. 



STi 



'^^W^ f-pij*-=. 



INOTES PERSONNELLES 



Le mode r 



ulti-F 



Encore une caracleristique liee a lordinateur. Les createurs de jeux sen serveni (et 
cest un peu pour cela quslle existe) pour separer la page affichee de celle en cours 
de modification. On affiche la premiere page tant que la modification de la deuxieme 
nest pas terminee et on affiche cette derniere, la premiere page devenant celie que 
Ion modifiera. etc. On garanttt ainsi qu'ii n'y aura aucun affichage en cours de 
modification. 

Cependant, un probleme de taille persiste : comment faire porter les modifications que 
ion opere sur la page qui nest pas visualisee ? il n'y a quune aiternatiue : ou bien 
voire langage le permet, et dans ce cas pas de probleme, ou bien il faut Irouver des 
astuces pour tromper lenvironnement, lorsque cest possible. 

Par example sur Apple en BASIC, le passage en haute resolution implique deux actions 
pnncipales : 

- la selection dune page graphique pour I'affichage, 

- la mise a )our dun pomteur du BASIC vers le debut de la zone memoire 
correspondant a la page affichee. 

II suffit de modifier directement ce pointeur pour changer la page dans laquelle les 
traces seront fails, et d utiliser les chargements des pages affichees par manipulation 
directe des adresses concernees ! Simple non ? 

Les fonctions de synchronisation 

Lorsque, pour des raisons diverses, vous n'uliiisez qu'une SBule page, il reste a 
accorder les modifications avec le retour du spot du moniteur en haut de I'image (ce 
que les specialistes appellent le "retour trame"). Pendant cette periode, rien n'est 
affiche a lecran. on peut done modifier toute information de la zone memoire. 
Ivlalheureusement, on dispose de peu de temps, il faut done prevoir de mettre a jour la 
page de haul en bas. Amsi, lorsque le spot recommence son balayage, il parcourt de 
ijauche a droite el de haul en bas, et n'affiche que les parties deja modifiees, Ces 
contrainles augmentcnt les difficultes de programmation et necessitent une bonne 
Vitesse de trailemenl. cette methode est done souvenl Impossible a ecnre en BASIC 
On la rencontre nolammenl sur Ivlacintosh, pour lequel il existe des routines syslemes 
qui pernieltent di-, declencher une procedure au moment de la remonlee du spot. 



CONCLUSION 

Cos differenls aspects de la programmation en haule resolution ne seront plus 
itbordes dans la suite de celle serie, tout au moms pour la realisation de ce jeu 
interactil. Comine dhabitudi.', n hesitez pas a nous ecnre, si vous desire; des 
precisions pour les adaptations en mode graphique ou des details de programmation 
sui les methodes que nous volis avons proposees ce mois-ci. Les mois prochains, 
nous detaillerons la progiammalion de ce jeu en lanalysant dime maniere similaire a 
cnlle qLio nou.'i unnons de commencer pour ledileur de texle. 
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DIALOGUE 
AVEC NOS LECTEURS 



LES PROBLEMES DE CHAMEAUX 

Nous allons vous presenter les solutions des problemes de chameaux dans les deux 
langages, BASIC et PASCAL Vous pourrez ainsi comparer uous-meme les qualites 
respectives de ces langages, Mais quel que soit votre choix, une analyse doit toujours 
preceder la soiution programmee. 

I. Les chameaux et les bananes 




Fig, I 

La remarque que Ton doit se faire concerne ie nombre de trajets a faire entre un point X 
et un point Y. Si au point X, on a une charge inferieure a 1 000 bananes, on peut tout 
prendre d'un coup, puis partir pour Y. Si la ctiarge est comprise entre 1 000 et 2 000 
bananes, on a besoin de 2 voyages ; mais alors, attention, il y aura besoin de bananes 
pour revenir faire Ie deuxieme voyage. Entre 2 000 et 3 000, il faudra 3 voyages et 2 
retours et ainsi de suite. 

La strategie est done de faire n voyages et n - 1 retours pour tout chargement compris 
entre nx 1 000 et (n- 1)x 1 000, mais des que Ie trajet a consomme suffisamment de 
bananes pour qu'il en reste seulement (n~ 1)x l 000, ii nest pius besoin que de faire 
(n - 1) voyages et {n - 2) retours, 

Dans ['exempie, nous avons 3 000 bananes au depart, 3 aliers et 2 retours sont done 
necessaires, ce qui fait 5 fois la memo distance d. Lorsque nous aurons parcouru cette 
distance, s'il ne reste plus que 2 000 bananes, 2 aliers et 1 seul retour sutfiront. II faut 
done que 

5 X d ^ 1 000 = d = 200 km 
done au bout de 200 km, il nous reste 2 000 bananes. Pour d2, ce sera 3 x d2 qui devra 
valoir 1 000 =^ d2^333 km. La 1 000^ banane etant offeree au conducteur (533 km 
sans manger ?!) et il reste 1 000 bananes pour 467 km a parcourir. On arrivera done au 
marche avec 533 bananes. 



NOTES PERSONNELLES 



M. Bigo a ete le premier a nous envoyer une solution sous forme de disquette avec un 
affichage remarquable, jl a rate de peu la solution optimale en considerant que celle-ci 
ne necessiterait qu'une seule etape alors qu'en realite, deux etaient necessaires. Par 
consequent, son programme ne trouve que la meilleure solution avec une seule etape. 
Pour les possesseurs de machines autres que I'Apple II, la partie concernant la 
solution se trouve entre les lignes 350 et 580. 



TEVT : HOME : GOTO 10000 
I REM 4) CHfiMEAU ft CH.8IG0 LE 19,12.86 
i QNERR GOTO ^30 
I TEXT : HOME 
I VJPtB 4; PRINT "========================================" 

1 VTflB b: PRINT "-Lfi TRfiVERSEE DU DESERT AVEC UN CHAMEAU-" 
I PRINT "========================================" 

) VTAe 13: HTAB 3: PRINT " 0- POUR QUITTER: RETOUR fiU BASIC." 

1 VTAB 15: HTflB 3: PRINT " 1- IMPEDIMENTA ET FEUILLE DE ROUTE." 

1 PRINT \ 

1 HTAB 3: PRINT " 2~ AVEC LES FORMULES AFFICHEES," 

> VTAB 2? 

) HTflEi 20: PRINT "VDTRE CHQIX "i! GET VN*! TF YN» = "2" THEN KlOO 

I IF YN« = "0" THEN TEXT : HOKE : END 

1 IF VN* > "1" THEN PRINT ; CALL - <'?S: GOTO 200 

1 TEXT ! HOME 

) INVERSE t PRINT "- ENTRER LES DDNNEE5 OU TAPER ^'RETURNV -"; NORMAL 

3t.li VTAB 2 
:> HOME 
I INPUT "niSTANCE 3 PARCOURIR "jD*: IF D* = "" THEN D ^ 

000: HTAB 34: CALL - 998: PRINT D: GOTO 280 
1 D = VAL (D*>: HTAE 34: CALL - 999: CALL - S6S: HTAB 34: PRINT D 
) INPUT "CHARGE MAX "sCt: IF C* = "" THEN C = 

000: HTAB 34: CALL - 998; PRINT C: GOTO 320 
) C = VAL (C*>: HTAB 34: CALL - 993: CALL - 868: HTAB 34: PRINT C 



. AND C = 



1 IF D = 1 AND C = 1 OR D 

C = 1 THEN 250 
1 IF C < D THEN CALL - W8: CAL 
) IF C :-■ D AND C .: D * 3 THEN C = D 
-) INPUT "DUANTITE 3 TRANSPORTER "jl 

000: HTAB 34: CALL - 993: PRINT Q: GOTO 370 
) Q = VAL (D«)! HTAB 34: CALL - 99B: CALL - I 
1W = 0:IFQ= ':D«2 THEN W = 1: G05UB 610 
!) IF W ) =1 THEN 300 

} PRINT "CDNSDMMATION AU KM PARCOURU "; 

5 PRINT : PRINT "===========================: 



M: END 
:i A = C ,' 2!R = C / 2:CH = A + R: 
:i N = / C t 2: IF INT (Nl < ; 
:i N8 = N - 1: IF NB = THEN NB = 1 
■) PRINT "NB DE PARCOURS POUR ENTREPOSER . . , 
:i P = Q / NB: IF INT (Pl <' > P THEN P = 



= 2 OR I 



2 OR D = 2 AND C = 
868: GOTO 280 

"SD*: IF 0$ = "" THEN = 

;: HTAB 34i PRINT G 



HTAB 34:K = 1: PRINT h 



IF D * N = < Q AND P '! C THEN M 
PRINT 

IFQ/N> =D*2 THEN M = Q - 
PRINT "DERNIER VOYAGE ALLER MAX., 
E = D - V 
PRINT : PRINT "DISTANCE JUSQU'3 L 



: HTAB 34: PRINT 



: HTAB 34: Z = 



I NOTES PERSONNELLES 



SflO IF C < D AND D : Q / [Q / C> THEN FOR T = 1 TO 8: CALL - 99B: CftLL 
- B6B: NEXT : INVERSE : PRINT "IMPOSSIBLE- . . . NON RETOUR. "s NORMflL : 
END 

550 PRINT ! PRINT "CHfiRGE DEPOSE^ 3 CH6QUE EBCfiLE "li HTAB 3fl:CE = (C 

H - (E « 2)>: PRINT CE 
560 CF = CE » N / 7!CG = CF + E;H = CG - V 

570 PRINT ; PRINT "STOCK TOTAL DANS L'ENTREPOT " i : HTAB 34:S = - 

E I NB: PRINT S 

580 PRINT "GUANTITE 3 L'ARRIVEE ";: HTAB -5A! INVERSE i PRINT 

M: NORMAL 
5'70 IF rs = 1 THEN IN'JERSE : PRINT "K RESULTATS fiPF'ROCHES B"i: NORMAL : PRINT 
" ( DECIMALE5. J"! J GET YNSi REM POUR GAGNER UNE LIGNE fi LA FIN DE L 
■AFFICHAGE. 
iOO END 

b\0 PRINT "ON VA BOUFFER LA BARABUE '!": HTftB 34: INVERSE : PRINT "-BTDP- 
, ": NORMAL : IF W > =1 THEN FOR U = 1 TD 500; NEXT : FOR U = 1 TO 3 
! CALL - '^''a: CALL - 'J5B: NEXT : RETURN 
t20 END 
630 ! 

1000 TEXT : HOME : CLEAR 
,1010 INVERSE ! PRINT "- ENTRER LES D0NNEE5 DU TfiPER '■RETURN> -": NORMAL : 
POKE 34. li VTAB 2 
1 020 HOME 

1030 INPUT "DISTANCE 3 PARCOURIR D "jD$i IF D$ = "" THEN D = 1 

OOOi HTAB 34: CALL - 990: PRINT Di'GDTO 1050 
1040 D = VAL (D»)! HTAB 34: CALL - 99B: CALL - B68: HTAB 34; PRINT D 

1050 INPUT "CHARGE MAX C "!C$; IF C* = "" THEN C = 1 

000: HTAB 34j CALL - 998: PRINT C: GOTO 1090 
lOtO C = VAL (C«)! HTAB 34: CALL - 998: CALL - 868: HTAB 34: PRINT C 
1070 IF D = 1 AND C = 1 OR D = 1 AND C = 2 OR D = 2 AND C = 2 OR D = 2 AND 

C = 1 THEN 1020 
1080 IF C < D THEN CALL - 998: CALL -- 868: GOTO 1050 
1090 IF C ) D AND < D t 3 THEN C = D 

1100 INPUT "QUANTITE 3 TRANSPORTER ";0«: IF Q* = "" THEN Q = 3 

000: HTAB 34: CALL - 998: PRINT Q: BOTO 1120 
1110 = UAL (OS): HTAB 34: CALL - 998: CALL - 86B: HTAB 34: PRINT 
1120 W = 0: IF = < D * 2 THEN W = li 60SUB 1540 
1 130 IF W > =1 THEN 1300 

1140 PRINT "COMSOMMATION AU KM PARCOURU K "i: HTAB 34:K = 1: PRINT K 

1150 PRINT ■'========================================"; 

1160 A = C / 2:R = C / 2:CH = A + R: REM A)LLER MAX. R)ETOUR. 

1170 NX = Q / C:N = NX I 2!PS = 

1180 IF INT IN) < > N THEN N = INT (Nl + 1:PS = 1 

1190 H = N - 1: IF H = THEN H = 1 

1200 PRINT "0 "sQ;"/C "jC;" *2 tlNTO+Ht =";N;" -1 =" 

1210 PRINT "NB DE PARCOURS POUR ENTREPOSER "j: HTAB 34: PRINT H 

1220 P = Q / H: IF iNT (P) < > P THEN P = INT <P + DiPS = 1 

1230 V = P 

1240 IF D * N = < AND P < C THEN M = - (D « N): GOTO 1510 

IZBO iFO/N> =D»2 THEN PRINT "D "iG;" -D ";D:" *H =":M = - D * 

H: GOTO 1510 
1260 PRINT "D "!Ds"-(Q "iOi'VH "iHs "«INT<>*1«) = P= 7" 

1270 PRINT "DERNIER VOYAGE ALLER MAX V ":: HTAB 34: PRINT V 

12B0 E = D - V 

1290 PRINT "D '•■,Ii;"-V ":V 

1300 PRINT "DISTANCE JUSUU' 3 L'ESCALE E "j: HTAB 34: INVERSE ; PRINT 

E: NORMAL 
1310 IF SON (E) = - 1 THEN 1540 

1320 PRINT "K="iK;" I = 1 TO D "iDi":K =+ IjC =C ";C;"-1" 
1330 HTAB 14: PRINT "- PATIENCE -" 
1340 REM PETIT GALOP D'ESSAI DAND LE DESERT. « Z= ClHARGE l'IAX.,/2 -1 # S£ 

RAIT PLUS RAPIDE MAIS ALORS PLUS DE SUSPENS! ! 
1350 FOR I = I TO DiK = K + liC = C - 1 
1360 PRINT 

1370 PRINT "K= "(Kj! HTAB 9; PRINT "C= ":C;: HTAB 17: PRINT "NON RETCUR I 
-l=; ";I - i 





NOTES PERSONNELLES 


13eO CALL - VO: CfiLL - <7'?8! CALL - 368 




!390 IF C < = D / 2 THEN 1410 




lilOti NEXT 




1410 PRINT : PRINT 




1420 2 = J - l! IF 7 < =0 THEN 1560 ■ 




1430 CE = ICH - (E « 2)) 




1440 IF SGN (CE) = - 1 THEN 1540 




1450 PRINT "CH "!CH;"-E "■,EV%2=" 




1460 PRINT "PAR ETftPE CHARGE DEPDSEE CE ";! HTAB 34: PRINT CE 




1470 CF = CE * N .' 2iC6 = OF + E:M = C6 - V 




13B0 PRINT "Q "jOs" - E "!E;"« H ";H:"=" 




149a PRINT "STOCK TOTAL DAN5 L'ENTREPOT S ";: HTAB 34:S = Q - E t Hi PRINT 

S 
1500 PRINT "CE "iCEs"«N ";N!" /2="iCFs"+E "!E!"= "iCGi"-V=" 






1510 PRINT "QLlflNTlTE 3 L'ARRIVEE M " ; s HTAB 34: INVERSE : PRINT 




Ms NORMAL 




1520 IF PS = 1 THEN INVERSE : PRINT "# RESULTATS APPROCNES #":: NORMAl : 




PRINT " ( DECIMALES-I"!! GET YN*: REM POUR GAGNER UNE LIGNE A LA Fl 




N DE L'AFFICHfiBE. 




1530 END 




1540 PRINT "ON W EDIJFFER LA BARAOUE ! 1 ": HTAB ZA: INVERSE : PRINT "-STOP 




-"! NORMAL : IF W > =1 THEN FOR U = 1 TO 500: NEXT i FGR U = 1 TD 




Z: CSLL - 9981 CALL - 958: NEXT : RETURN 




1550 END 




1560 FOR T = ) TO 8! CALL - 990: CALL - 668: NEVT : INVERSE ; PRINT "IN 




POSSIBLE- ...NDN RETOUR.": NORMAL : END 




5000 REM PRESENTATION DANS LA FENETRE. 




5010 HOME ;HA = OiVA = 




5020 A4 = "CARfiVANSERfilL" 




5030 VA = 5iHA = 4 




504.0 FOR I = 1 TO IS 




5050 B* = MID* IAS. I. 11 




5060 HA = HA + 2 




5070 VA = VA + 1 




5080 VTAB W 




5090 HTAB HA 




5100 PRINT B*i: HTAB HA 




5110 NEXT 




5120 FOR TT = 1 TO 1500: NEXT 




5130 RETURN 




10000 REM « ROULE « LE 12/07/85 




lOOIO TEXT : HOME 




lOOM PL* = "!<->-; !f" 




10030 A = 1 




10040 W = W + 1 




10050 FOR J = 1 TO 20 




10060 FOR I = 1 TD 4 




10070 GOSUE 10220 




lOOBO NEXT 




10090 NEXT 




10100 IF W = 2 THEN 10530 




JOllO POKE 34. It VTAB 2 




10120 A = 2 




10130 FOR N = 1 TO 23 




10140 FDR M = 1 TO 4 




10150 GOSUB 10280 




10160 NEXT 




10170 NEXT 




10180 IF IJ = 2 THEN POKE 35,23: GOTO 10330 




10190 A = 23 




10200 GOTO 10040 




10210 END 




10220 VTAB A: HTAB J 




10230 PRINT NIDt (RL*.I.l) 




10240 VTAB A: HTAB 40 - J 




10250 PRINT H1D$ (RL*. I ■<■ 4.1) 





.NOTES PERSONNELLES 



HID* (RL», 
; HTftB S? 
mnt IRLt. 



10320 
10330 
1 0340 
10350 
10360 
10370 
1 03B0 
1 0390 
lOflOO 



VTflB N: 
PRINT 

VTfiB ^ 

PRINT 

RETURM 

REM ROULETTES 

NDRMflL 

VTflB 2: POKE 35.32: POKE : 

POKE 34,,2i poke' 35.20 

PRINT 

GOSUB 501 

GOTO 100 

END 



,3i>] P0^:E 32,2 



Pour la solution optimale, nous avons pense que ce serait une bonne occasion 
d'utiljser le Pascal. Nous allons done ensemble analyser ce programme. 
Commenpons par le programme principal dont les variables sont definies tout en haul, 
elles sont toutes entieres, et le programme principal se borne a les initialiser en 
questionnant Tutilisateur sur les conditions du trajet. Dans notre cas : 

- Ciiangement total : 3000, 

- Consommation : 1, 

- Charge maximale : 1000, 

- Distance a parcourir : 1000, 

Une fois ces operations effectuees, appelons la fonction Voyage dont le resultat est le 

nombre de bananes restantes. 

On part en voyage avec 3 000 bananes pour une distance de 1 000 km, il convient de 

savoir de combien d'allers-retours on aura besoin pour ces 3 000 bananes, ce qui 

donnera une consommation kilometrique «instantanee» lorsque tant d'allers-retours 

sont necBssaires. II convient alors de detenniner le chargement a partir duquef un ailer- 

retour de moins sera utile, et le kilometrage alors parcouru. 

Si le kilometrage est superieur a la distance qu'il restait a parcourir, on san-ete avant et 

on compte ce qui reste a ce moment-la. 

Sinon, une etape supplementaire est necessaire, le nombre de bananes restantes sera 

celui obtenu apres la nouvelle etape mais celle-ci n'est possible que si le ctiargement 

restant n'est pas deja nul. 
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INTEGER ! 
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INTEGER 
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^v^ 



■Wi 



NOTES PERSONNELLES 



Allers^retours :- ( Chargement DIV f charge_ 
ChaEqement_i-a3Cant ;= { ( Rllera_retour3 - 1 

Voyage := ( Kilomettage - Distance_i:estE 



elsE 



= then 



Voyage := Voyage 1 Chai 



writelnCdonnez 
readlnlChatgeraer 






ceaciln (Charge_max±male) 
wEitelnCdonnez la distance = 
ceadln (Di3tance_a_parcoui-iil 
Diatance_deja_pai:couEue := 
Bananes_ire3tante3 ;= Voyage! 



3 accepcee par le c 



X total , Char 



LES CARRES BI-MAGIQUES 

Nous vDus presentons la solution proposee par M. Gueron qui permet d'obtenir 80 
Carres magiques 8 x 8 qui ont done aussi la propriete d'avoir la somme des carres pour 
chaque ligne, colonne ou diagonale constante. Le programme tient compte des 
symetries puisque tous les carres sonl orientes de telle fapon que le coin superieur 
gauche soit le plus petil des quatre coins. 

Comme M. Gueron nous le precise dans sa lettre, il est tres facile de passer de cases 
numerotees de a 63, a des cases numerotees comme d' habitude de 1 a 64. En effet, 
a I'aide de I'idenlite remarquable : 

{x + y) '^ 2 ^ X ^^2 + 2xy + y '^ 2, 
on trouue que la somme dune ligne ou colonne vaut : 

252 + 8 = 260 
et la somme des can^es : 

10668 + 2x252 + 8-11180. 
Par la meme methode, on peut d'ailleurs montrer que Ton peut commencer a partir 
d'une valeur quelconque (par exemple de 2 a 65). 



10 REM programme r6alis6 par M Jacques GUERON 

20 REM BASIC standard+ print using 

30 REM creation de 80 carres bl-magiques d'ordre 8, tous distincts Iss uns 

40 REM des autres, 

50 REM constantes: - magique=252, bi-magiques=10668 



'■-■:i^iSK3L'i^mrii' 



NOTES PERSONNELLES 



55 REM classes (coin gauche sup6rieur toujours inf6rieur aux autres coins) 

60 DEFINT A-Z 

65 

70 FOR s-0 TO 56 STEP 8 

80 FOR t=0 TO 56 STEP 8:IF t^ THEN 640 

90 FOR u=0 TO 56 STEP 8:IF u=s OR u-t THEN 630 

100 FOR v=0 TO 56 STEP 8:1F v-s OR v-i OR v-u THEN 620 

1 1 FOR w-0 TO 56 STEP 8:IF w=s OR w=t OH w=u OR v».v THEN 61 

120 FOR X.0 TO 56 STEP 8:IF x=s OR x=t OR x-u OR x-v OR x=w THEN 600 

130 FOR y=0 TO 56 STEP 8 

135 IF y=s OR y=t OR y-u OR y-v OR y=w OR y=x THEN 590 

140 FOR z=0 TO 56 STEP 8 

145 IF z=s OR z»t OR z-u OR z-v OH 2=w OR z=x OR z=y THEN 580 

150 sy.ABS(s-y):»x=ABS(v-x):tz=ABS(t-z):uw.ABS(u-w) 

155 sz.ABS(s-2):ty=ABS(t-y):xu=ABS(x-u):vvv.ABS(v«-v) 

160 st=ABS(s-t):uv.ABS(u-v):\«rx=ABS(w-x):yz=ABS(y-z) 

170 IF sy=vx AND vx=tz AND Iz-um THEN 180 ELSE 580 

180 IF sz=ty AND ty=xu AND xu=wv THEN 200 ELSE 190 

190 IF st-uv AND uv-wx AND wx=yz THEN 200 ELSE 580 



200 FOR A=0 TO 7 

210 FOR B=0 TO 7: IF B=A THEN 560 

220 FOR CO TO 7: IF C=A OR C=B THEN 550 

230 FOR D-O TO 7: IF D=A OR D=B OR D=C THEN 540 



240 IF K=OTHEN s=0:t=8:u=24:v=16:w.56:x.48:y.32:z.40:C=4:B=2:D.7:A=1 
250 IF K=4THEN s=0:t=8:u=40:v=32:m=56:x-48:y=16:2.24:C=2:B=4:D=7:A=1 
260 IF K.12THEN s-0:1.16:u.24:v.8:»(.56:x.40:y=32:z=4S:C=2:B=4:D=7:A=1 
270 IF K=20THEN s=0:t=16:u=48:v=32:w=56:x=40:y=8;z=24:C=2:B.7:D=4:A.1 
280 IF K=28THEN s=0:t=32:u=40:v=8:w=56:x=24:y=16;z=48:C=2:B=7:D=4;A=1 
290 IF K=36THEN s=0:t=32:u=48:v=16:w=56:x=24:y=8:z=40:C=4:B=7:D=2:A-1 
300 IF K=40THEN s=8:t=0:u=16:v=24:w.48:x=56:y.40:z.32:C=5:B.3:D=6;A=0 
310 IF K=44THEN s=S:t=0:u=32:v=40:w=48:x.56:y.24:z=15:C=6:B=3:D=5;A=0 
320 IF K=52THEN s=8:t=24:u=56:»=40:w=48:x.32:y=0:z=16:C=6:B=5;D=3:A=0 
330 IF K.60THEN s.8:t=40:u=56:v=24:w=48:x.16:y.0:z.32:C.5:B=6:D=3:A=0 
340 IF K=64THEN s=16:t=0:u=8:v=24:w.40:x.56:y=48:z=32:C=6:B=3:D.5:A=0 
350 IF K.72THEN s.16:t.48:u=56:v=24™=40:x=8:y=0:z.32:C.6:B.5:D.3:A=0 



360 AA.7-A:BB.7-B:CC=7-C:DD=7-D 

370 IF S+C>.Z+AA OR S+C>=W+CC OR S+C>.v+A THEN 540 

380 IF A«2 + B»2 + C»2 + D"2<>70 THEN 540 

390 IF s*C+t*B+u*DD+v*AA+w*CC+x'BB+y*D+z*A<>784 THEN 540 

400 IF s*CC+t*BB+u*D+v*A+w'C+x*B+y*DD4.z*AA<>784 THEN 540 

410 IF s'C+t*CC+u*BB+v*B+w*DD+x'D+y*A+z*AA<>784 THEN 540 

420 IF s'C+t'D+u*B+v*A+w*BB+x'AA+y*CC+z*DD<>784 THEN 540 



INOTES PERSONNELLES 



430 k=k+l:PRlNT" Bi-Magique "";K;""" 
440 PRINT USING" #r;s+C;l+CC;u+BB;v+B;w+DD;x+D;y+A;z+AA 
450 PRINT USING' #r;z+DD;y+D;x+A;w+AA;v+C;iJ+CC;t+BB;s+B 
460 PRINT U^ING" ##";t+D;s+DD;v+AA;iJ+A;)(+CC;w+C;z+B;y+BB 
470 PRINT USING" #r;y+CC;z+C;w+B;x+BB;u+D;v+DD;s+AA;t+A 
480 PRINT USING" ##";x+AA;w+A;z+D;y+DD;t+B;s+BB;v+CC;u+C 
490 PRINT USING" ##";u+B;v+BB;s+CC;t+C;y+AA;z+A;w+D;x+DD 
500 PRINT USING" #r;w+BB;x+B;y+C;z+CC;s+A;t+AA;u+DD;v+D 
510 PRINT USING" #r;v+A;u+AA;t+DD;s+D;z+BB;y+B;x+C;w+CC 

520 GOSUB 660 :REM verification 

530 IF k=80 THEN END 

540 NEXT D 

550 NEXT C 

560 NEXT B 

570 NEXT A 

580 NEXT z 

590 NEXT y 

600 NEXT X 

610 NEXTw 

620 NEXT V 

630 NEXT u 

640 NEXT t 

650 NEXT S 



660 PRINT:PRINT "Vfirificalion de ia bi- 
670 Inl =(s+C}''2+(t+CC)''2+(u+BB)'^2+(v+B)' 
680 ln2-(z+DD)'>2+(y+D}'^2+(x+A)''2+(w+AA)' 
690 in3=(l+D}'^2+(s+DD)''2+(v+AA)^2+(u+A)' 
700 in4-(y+CC}''2+(z+C)''2+(w+B)''2+(x+BB 
710 ln5=(x+AA}''2+(w+A)'^2+(z+D)''2+(y+DD)' 
720 in6-{u+B)''2+(v+BB)''2+(s+CC}"2+(t+C)' 
730 in7=(w+BB)'>2+{x+B)'>2+(y+C)'*2+(z+CC)' 
740 in8={v+A)''2+(u+AA)"2+(t+DD)'^2+(s+D)«: 



■magie" 

'2+( w+ DD) '^2+ (x+ D) -^2+ (y + A}''2+(z+ AA)''2 
i"2+(v+C)'^2+(u+CC)'^2+(t+BB)''2+{s+B)'^2 
'2+(x+CC) '*2+(w+C) ''2+(z+ B)''2+(y+ B B) -^2 
^2+(u+D}''2+(v+DD)'2+(s+AA)«2+(ti-A)'^2 
l''2+ (t+ B) '^2+ (s+ B B}'^2+ ( v+CC) ''2+(u+C) ''2 
>2+(y+AA)"2+(z+A)'^24(w+D)"2+(x+DD)''2 
'2+(s+A)'^2+(HAA)''2+(u+DD)''2+(v+D)'^2 
'24-(z+BB)'^2+(y+B)''2+(x+C)''2+(w+CC)'^2 



750 ci1=(s+C)^2+{z+DD)^2+(t+D)'^2+(y+CC)''2+(x+AA)'^2+(u+B)'>2+(w+BB}''2+(v+A)'^2 
760 ci2=(t+CC)'^2+{y+D}'*2+(s+DD)''2+(z+C)'^2+(w+A)'*2+(v+BB)''2+(x+B}'^2+(u+AA)"2 
770 ci3=(iJ+BB)'*2+(x+A)'^2+(v+AA)'^2+(w+B)'*2+(z+D)'^2+(s+CC)''2+(y+C)'^2+(t+DD}'2 
780 cl4=(v+B)''2+(w+AA)"2+(u+A)''2+(x+BB)^2+(y+DD}''2+(t+C)'^2+(z+CC)'^2+(s+D}''2 
790 cl5-(w+DD)'^2+(v+C)'^2+(x+CC)'^2+(u+D)'^2+(t+B}''2+(y-hAA}'*2+(s+A)''2+(z+BB)''2 
300 cl6=(x+D)'^2+(u+CC)'^2+(w+C)''2+(v+DD}''2+{s+BB)'2+(z+A)''2+(t+AA)''2+(y+B)''2 
8I0ci7=(y+A)'*2+(t+BB)'^2+(z+B)''2+(s+AA)''2+{v+CC)''2+{w+D)''24(u+DD)''2+(x+C)'>2 
820 ci8=(z+AA}'*2+(s+B}''2+(y+BB)''2+{t+A)''2+(u+C)''2+(x+DD)'2+(v+D}''2+(w+CC)'^2 

830 di1=(s+C)''2+(y+D)''2+{v+AA)«2+(x+B8)''2+(t+B)''2+(z+A)'*2+{u+DD)'^2+(w+CC)''2 
840 di2=(z+AA}'^2+(t+BB}''2+(w+C)'^2+(u+D)''2+(y+DD)'^2+(s+CC)'>2+(x+B}'^2+(v+A}''2 
850 PRINT cil;" ";cl2;" ";cl3;" ";ci4;" ";cl5;" ";ci6;" ";cl7;" ";cl8 
860 PRINT Inl;" ";!n2;" "ilnS;" ";ln4;" ";in5;" ";in6;" ";!n7;" ";ln8 
870 PRINT dil;" ";di2:PRINT 
880 RETURN 



NOTES PERSONNELLES 


LES 6 PREMIERES SOLUTIONS DES 


CARReS BI 


-MAGIQUES 8X8 






Bi-Magique ** 1 ** 








4 11 29 18 56 55 33 46 
40 39 49 52 20 27 13 2 
15 22 25 51 60 42 37 
35 44 58 53 31 16 6 9 
54 57 47 32 10 5 19 28 
26 21 3 12 38 41 63 48 
61 50 36 43 1 14 24 23 
17 30 8 7 45 34 52 59 












Verification de la bi-magie 












10668 10568 10668 10668 
10668 10668 10663 1066S 
10668 10668 


10668 
10668 


10668 
10568 


10658 
10668 


10668 
10668 




Bi-Magique ** 2 ** 












6 9 31 16 58 53 35 44 
42 37 51 60 22 25 15 
13 2 20 27 49 62 40 39 
33 46 56 55 29 18 4 11 
52 59 45 34 S 7 17 30 
24 23 1 14 36 43 61 50 
63 48 38 41 3 12 26 21 
19 28 10 5 47 32 54 57 












Verification de la bi-magie 












10568 10568 10568 10668 
10668 10658 10658 10668 
10668 10668 


10668 
10668 


10668 
10668 


10668 
10668 


10668 
10668 




Bi-Magique ** 3 ** 












1 14 24 23 61 50 36 43 
45 34 52 59 17 30 8 7 
10 5 19 28 54 57 47 32 
38 41 63 48 26 21 3 12 
51 60 42 37 15 22 25 
31 16 6 9 35 44 58 53 
56 55 33 45 4 11 29 18 
20 27 13 2 40 39 49 62 












Verification de la bi-magie 












10558 10668 10568 10668 
10668 10668 10668 10668 
10668 10668 


10668 
10668 


10668 
10658 


10668 
10658 


10668 
10668 
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Bi-Magique ** 4 ** 




3 12 26 21 63 ■98 38 41 




47 32 54 57 19 28 10 5 




8 7 17 30 52 59 45 34 




36 43 61 50 24 23 1 14 




49 62 40 39 13 2 20 27 




29 18 4 11 33 46 56 55 




58 53 35 44 6 9 31 16 




22 25 15 42 37 51 60 




Verification de la bi-magie 




10668 10668 10658 10568 10668 10568 10568 10668 




10568 10668 10668 10568 10668 10568 10568 10568 




10668 10668 




Bi-Magique "* 5 ** 




2 13 43 35 56 55 17 30 




24 23 49 62 34 45 11 4 




15 38 41 53 58 28 19 




21 26 60 51 47 32 6 9 




54 57 31 16 12 3 37 42 




44 35 5 10 22 25 63 48 




59 52 18 29 1 14 40 39 




33 46 8 7 27 20 50 51 




Verification de la bi-magie 




10668 10568 10668 10668 10568 10668 10668 10668 




10668 10568 10668 10668 10668 10668 10668 10668 




10668 10658 




Bi-Magique ** 6 ** 




■3 11 46 33 56 55 18 29 




24 23 50 61 36 43 14 1 




15 37 42 51 50 25 22 




19 28 57 54 47 32 5 10 




53 58 31 15 9 6 35 44 




41 38 3 12 21 26 63 48 




52 49 20 27 2 13 40 39 - ■ 




34 45 8 7 30 17 52 59 




Verification de la bi-magie 




10668 10668 10658 10658 10668 10658 10663 10663 




10668 10668 10558 10558 10668 10658 10658 10563 




10668 10668 




/ 





CEST ARRIVE 
DEMAIN 

(en direct de notre envoye permanent dans la Silicon Valley) 



A partir du 1^' Janvier 87, la fiscalite americaine chan- 
gera du tout au tout. Ce changement aura aU moins 
quelques heureux, les societes qui proposent des 
programmes bases sur la gestion de portefeuiiles, le 
calcul des impots... En effet, les programmes doivent 
etre entierement refondus pour repondre aux nou- 
veaux criteres, Les societes qui produisent ces pro- 
grammes sent done, depuis I'annonce du change- 
ment, au travail a plain temps pour reecrire les nou- 
veaux, ce qui fait tourner des petites maisons de 
developpement qui auraient eu bien des problemes 
sans cela. Sans prejuger du contenu du nouveau plan 
fiscal que je ne connais pas, on peut-etre sur que ces 
societes au moms sauront gre au President Reagan 
de les faire fravailler. 

Signe des temps, Ihebdomadaire INFOWORLD, refe- 
rence aux U.S.A. pour Tinformation micro, vient de 
creer une rubrique speciale MACINTOSH qui paraitra 



cfiaque semaine, Apres avoir longtemps critique ce 
"jouel-, la revue, comme les autres, doit se plier a la 
popularite grandissante de cet appareil. Cela doit etre 
un dechiirement pour le personnel de ce journal, sou- 
tien permanent du standard PC-DOS, lei au moins, ce 
sont les meilleurs qui arrivent. 

Une grande reunion s'est tenue en France, sur la pro- 
tection des reseaux informaliques. Le probleme 
actuel est la criminalite informatique qui est, dans plus 
de 95 % des cas, impossible a detecter et dans les 
5 % restant, moins de 20 % des coupables sont 
punis. Alors des grandes banques sinquietent, ainsi 
que tous ceux qui transferent des donnees sensibles. 
Du de I'argenL De nombreux cas de detournements 
de plusieurs millions de dollars ont ete prouves aux 
U.S.A., mais le plus souvent le coupable est inconnu, 
et meme parfois la fraude n'est retrouvee que par un 
deficit des comptes mensuels ou annuels. Alors pour 



retrouwer qui a pu s'en rendre coupable plusieurs 
semaines auparavant ressemble a la resolution de la 
quadrature du cercle. Le plus amusant, en France 
tout au moins, est que les socJetes vJsees (banques, 
administrations, compagnies d'assurances) sont reti- 
centes a lidee de pratiquer des controles contrai- 
gnants sur leurs systemes, car... cela "Signjfierait 
qu'ils ne seraient pas infaillibles-. La belle affaire, 
quand on salt qu'ils ne le sont pas. Mais, devant la 
montagne ..INFORMATIQUE-., il semble que le mot 
d'ordre soil encore mutisme et admiration sans faille. 
II me semblait que Ton en etait presque au 21^ siecle. 

On vit une epoque merveilleuse !!! Figurez-vous qu'il 
etait deja possible de faire tourner une machine a 
base de 68000 (Mac, Amiga, Atari 1024ST) avec une 
interface qui la transformait en PC compatible. Cela 
veut dire que pour le prix dun IBM, vous aviez un 
compatible IBM (alors que le prix de ces derniers est 
en general la moitie de celui de I'lBM), Maintenant on 
fait bien mieux, L'interface est purement logiclelle. 
Cela veut dire que, en plus, I'emulation se trainera a la 
Vitesse de lescargot essayant de battre le Mirage 
2000. Tout cela pour un pnx derisoire, 1 000 $, Pen- 
sez, un compatible uaut parfois jusqu'a 500 $, Si 
quelqu'un comprend, ecrivez-moi. Merci d'avance. 

Nous parlions de piratage. Dans les universites ameri- 
caines, cela tourne au sport national. Pour tenter d'y 
remedier, des logiciels de plus en plus contraignants 
surveillent toutes les commandes executees sur le 
systeme, les memorisent pour permettre, sinon de 
demasquer le coupable, tout au moins d'empecfier de 
renouveler les manipulations Indelicates par des pro- 
lections nouvelles. Mais, 11 y a encore plus fou. Les 
messageries electroniques sont victimes de program- 
meurs {a mon sens geniaux bien que tres vicieux) qui 
ecrivent des programmes qui devorent tous les 
fictiiers petit a petit ou qui, une fois utilises par des 
clients lambda -croquent- les fichiers de ces der- 
niers, stockes par exemple sur un disque dur. Quand 
vous voulez relire un de ces fichiers, vous voyez 
apparaitre un message du type -le ver de terre fou a 
encore frappe». Programmer un tel logiciel est nui- 
sant, mais demande une certaine dose de genie et de 
connaissance des reseaux et des systemes. En tout 
cas, ces problemes font une contre-publicite impor- 
tante aux reseaux publics, les clients ayant peur de 
-verminer» leurs fichiers. 

Steve Jobs a annonce une station de travail qui, dans 
le cadre des universites, permettrait de simuler des 
experiences de chimie et de physique, Selon lui, les 
performances de cette station seraient de loin supe- 
rieures a ce qui sortira en 1987 chez les concurrents. 
Si cela se confirme, ce serait le premier produit de la 



societe qu'il a cree depuis sa sortie de chez Apple. 
Mais, de plus en plus, les societes annoncent des 
produits bien avant qu'ils ne soient prets, et tres sou- 
vent, des problemes majeurs surviennent et le produit 
est abandonne. A ce sujet, Popular Computing a rea- 
lise une enquete sur les produits dans ce cas et il 
apparait que pres de 70 % des logiciels et 50 % des 
materiels sont dans cette categone des produits qui 
ne sortent jamais, malgre une annonce officielle," sou- 
vent fracassante. 



C'est Noel et les jouets abondent un peu partout. II 
est frappant de voir que I'intelligence artificielle a vrai- 
ment fait des progres, au moms dans le cadre de son 
application aux jouets grand public. Des poupees qui 
patient, repondent aux questions, poussent des oris 
de ioie lorsqu'on les caline, c'est, malgre tout, une 
nouveaute. Les jeux de questionnaires qui emmagasi- 
nent des quantites incroyables de reponses (plus de 
10 000 000 pour certains), c'est une reussite de la 
tiaute integration electronique, mais aussi des algo- 
rithmes de structuration et de stockage des bases de 
donnees. Je n'aime pas la vogue actuelle pour les 
jouets representant des robots agressifs et combat- 
tants mais, la aussi, I'electronique arrive en force. II 
semble que, pour la premiere fois, le prix des compo- 
sants et I'lmagination aient permis une Invasion de la 
vraie electronique dans le jouet, Depuis dix ans, ce 
genre de declaration est a la mode, mais hen ne sem- 
blait plus attrayant que le jouet iradltionnel. II semble 
qu'enfin le pas soit franchi et que I'electronique et 
I'informatique aient donne des idees aux fabricants. II 
taut dire que lorsqu on peut integrer des processeurs 
de type 65C02 dans un jouet a moins de 20 $, cela 
peut doper la creativite. Mais, encore une fois, 
jusqua cette annee, hen de vraiment novateur ne 
voyait le jour, mais maintenant le pas est franchi. Vous 
pourrez meme vous olfrir le robot dont tout le monde 
parte depuis vingt ans. Celui qui fail le service au bar 
et peut passer I'aspirateur, Bien sur, la periode 
dacquisition de la connaissance dont il a besoin sera 
longue, mais quel plaisir apres. 



Le systeme d'exploitation le plus populaire a I'heure 
actuelle, nous en parlions le mois dernier, c'est UNIX, 
Sa vogue est telle qu'il est maintenant possible de 
trouver en libraihe la collection complete des manuels 
dorigine, edite par la maison mere. Bell. C'est sans 
doute la premiere fois que cette societe de rectierche 
en communication el en informatique produit un vrai 
best-seller et elle ne devait surement pas y penser en 
le publiant au debut des annees 70. A quand le pnx 
Goncourt pour cet ouvrage en sept volumes ? Ou le 
Nobel pour fceuvre complete des laboratoires Bell. 



Comme les autres, Apple fait marcher la machine a 
informations diverses, variees, et plus ou moins plau- 
sibles. En debrouiilant I'echeveau (et certains sont 
specialises dans cette activite qui tient du jeu d'aven- 
ture et du puzzle), il ressorl que les produits seraient : 
un Mac Plus dote d'un 68020, avec le reste peu ou 
pas modifie (on parle d'un ecran un petit peu plus 
grand, mais alors qu'en est-il de la compatibilite avec 
le reste de la gamme ?), Vient ensuite I'Open Mac, 
nom de code actuel Milwaukee. II sera dote d'origine 
dune caisse a peu pres vide, c'est-a-dire qu'il 
reprend le principe de I' Apple II. Une caisse avec huit 
fentes d'extension, la carte logique, un clavier et c'est 
tout. Tout le reste sera au choix du client, ecran (cou- 
leur ou non), resolution, memoire interne (1 Megaoctet 
en standard), stockage de masse (eventuel disque 
dur interne, disquette...), connexions vers le monde 
exterieur (imprimantes, reseaux, modems). Pour cha- 
que extension, une fente permet de loger interface. 
Tout cela pour un prix approximativement double de 
celui du Mac Plus actuel (qui baisse d'ailleurs !!!) 

La guerre du disque dur, si elle est moins meurtriere 
que celle de la crevette dans le golfe de Gascogne, 
n'en fait pas moins des victimes de marques (oui, oui, 
le "S" est volontaire), Tecmar et Corvus, vous con- 
naissez ? Peut-etre pas si vous etes depuis peu dans 
le bain. Ce sont les veritables inventeurs du disque 
dur. On ne parle plus d'eux, simplement parce que, la 
ou ils demandaient, voila un an, 1 500 $ pour 
20 Megaoctets, on trouve la meme chose pour 500 $ 
aujourdhui. Cette ruee de petits fabricanis vers ce 
creneau prometteur pour les annees a venir a totale- 
ment asphyxie les deux pionniers qui falsaient payer 
fort cher leur savoir-faire. Le temps de s'adapter au 
niveau du marche, et la demande s'est deplacee vers 
les petits nouveaux, Meme des societes recentes 
{General Computer) ont du mal a suivre la cadence 
echevelee de la baisse des prix, Le consommateur 
trouve son compte dans cette evolution, mais lorsque 
ceux qui veulent elouffer les autres seront parvenus a 
leurs fins, les prix risquent de remonter sensiblement. 
D'ou I'ampleur de la vague d'achal. Des revues qui, 
I'an dernier, testaient cinq disques pour un ordinateur, 



font une revue de plus de cent differents materiels 
cette annee. 

Une nouvelle serie de langages font leur apparition 
sur micro-ordinateurs, les langages objets. II est pos- 
sible de programmer avec cette excellente structura- 
tion des langages comme Pascal, Prolog, Lisp, et 
meme I'obsolete C et le vieux BASIC, Cette technique 
permet de considerer un ensemble d' informations 
comme faisant partie d'une meme structure, et de 
definir cette structure plus ou moins souplement, 
selon qu'il est possible ou non d'introduire des 
exceptions, par I'intermediaire de commandes plus 
generales, ou d'arborescences. Moralite, voila un 
nouveau pas vers la haute structuration des program- 
mes, ce qui ne doit plus prendre au depourvu les lee- 
teurs de LED-Micro, Tous les recents Pascal se sont 
mis au gout du jour et vont arriver en force sur les plus 
petits des micros, mais 11 faudra etre un peu plus 
patient. II en est de meme pour Lisp, Prolog et C. Par 
centre, des BASIC objets existent maintenant aux 
U.S.A., pourtous les types de micros. Avec un peu de 
chance, ils seront en France vers le printemps. 



Signe des temps, la revue INFOWORLD, encore elle, 
consacre dix pages cette semaine a la descnption 
des principales stations de travail. Sun, Appolo, VAX, 
IBM el Hewlett-Packard sont ainsi confronLes dans 
une revue specialisee dans la micro a tendance pro- 
fessionnelle. Malgre tout, qui aurait pu imaginer que 
ce type de performance serait a la portee dun parti- 
culler ou dune societe de trois personnes. C'est 
pourtant le cas, avec des materiels allant de 60 000 
francs a plus de 1 300 000 francs. Pour 100 000 
francs, vous aurez maintenant une station Sun, avec 
un ecran couleur ] 024 x 1 024, 2 Mb de memoire 
centrale, une souris a trois boutons. Un bon debut. 
Helas, les prix indiques sont ceux des U.S.A. et en 
France ce sera presque le double. Mais, comme je 
vous I'avais dit I'an dernier, les prix baissent, principa- 
lement grace aux quantites de materiels vendus, qui 
augmentent sans cesse. Pensez, 7 500 $ pour le 
moins cher, cest le prix d'un IBM PC haut de gamme. 
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LE 
TURBO PASCAL 



Gharles-Henry Delaleu 



Contrairement a ce que nous uous avions annonce dans nos precedents numeros, 

nous n'allons pas vous proposer un cours sur DBASE III ou TEXTOR mais vous 

presenter chaque mois un nouveau produit en detail. Nous commengons avec le 

TURBO PASCAL et ses outils de programmation. 

Le PASCAL, conqu a I'Drigine comme un langage d'initjation a la programmation, est 

devenu aujourd'hui une reference, II a depasse le stade pedagogique pour devenir un 

langage courant comme le FORTRAN, le COBOL ou PL/I. Dans le monde de la micro- 

informatique, le PASCAL de reference fut rapidement le PASCAL USCD, II faut bien 

admettre que desormais 11 se vend beaucoup moins et que Borland a reussi un coup de 

maitre avec son TURBO PASCAL, 

En effet ce langage possede plusieurs avantages dont celui d'etre beaucoup plus 

economique que les autres PASCAL II est rapide et s'adapte facJIement au format 

IBM-PC. 

Enfin, grace a ses additifs (TURBO EDTOR, TOOL BOOK et GRAPHIX TOOL BOOK), 11 

peut etre un excellent outil de developpement. 
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LE TURBO PASCAL : PRESENTATION 

L'historique : Lorsque M. Wirth deveioppa le PASCAL, il vouiajt realiserun langage de 
haut-niveau, qui obligerait I'utilisateur a realiser une programmation structures. 
Conpues dans un but universitaire, les performances de ce langage allaient vile 
depasser le cadre educatif pour s'imposer en programmation professionnelle ou 
personnelle. 

Le TURBO : Le TURBO PASCAL tut elabore par un frantpais. Le langage en version de 
base suit d'assez pres la definition du Pascal standard telle qu'elle fut publiee par 
•♦Jensen et Wirth dans PASCAL USER MANUAL AND REPORT. 
II possede 

- Un editeur 

- Un compilateur 

- Une commande d'execution 

- Des commandes de sauvegarde et de directory 

La compilation de TURBO PASCAL est tres rapide mais il convient de noter qu'il est 
impossible de sauvegarder en memoire de masse un programme compile. En effet, 
avant chaque execution, le programme doit etre recompile. 

Les extensions 

Afin de rendre plus performant le TURBO PASCAL, Borland a eu I'excetlente initiative 
de mettre sur le marche des outils efficaces. 

a) Dans un premier temps, il convient de noter I'existence de TURBO TUTOR qui est un 
cours de TURBO PASCAL 

b) Dans la version de base, I'editeur de Turbo Pascal n'est pas une reference en soi. 
Pour pallier a cet inconvenient, Borland a realise TURBO EDITOR qui est un logiciel de 
traitement de texte specialise dans Tecriture de longs programmes en TURBO 
PASCAL. 

c) Lorsque PASCAL apparut sur le marche, les specialistes en developpement de 
logiciels critiquerent longuement ses faibles performances dans le domaine de la 
gestion des fichiers. 

Pour remedier a cette faiblesse, et pour ne pas avoir les memes critiques que le Pascal 
de base, Borland a developpe TOOL-BOX qui ameliore tres nettement les 
performances du Turbo Pascal dans le domaine de la gestion des informations. 

d) Un beau dessin est souvent plus parlant qu'un long texte ; il ne manquait que le 
graphisme a Turbo Pascal. GRAPHIX TOOL-BOX autorise toutes sortes de dessins et 
animation dans I'environnement du Turbo Pascal, 



INTRODUCTION A TURBO PASCAL 

Le Turbo Pascal offre de nombreuses extensions en version de base, telles que : 
-Variables d'adresses absolues 

- Manipulations de bits et d'octets 

- Acces direct a la memoire et aux ports du micro-processeur 

- Chafnes dynamiques 

- Classement libre des sections dans la partie declaration 

- Support integral des routines du systeme d'exploitation 

- Generation du code machine en ligne 

- Fichiers Indus 

- Operations logiques sur les entiers 

- Modules de recouvrement 

- Chainage de programmes avec variable communes 

- Fichiers de donnees a acces direct 

- Constantes structurees 

- Fonction de conversion de type 
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Pour les IBM et compatibles : 

- Couleurs 

- Graphique 

- Tortues 

- Fenelres 

- Son 

Turbo Pascal exisle en differentes versions de systems d'exploitation. II est 
executable sous : 

- CP/M80 
-MS/DOS 

- PC/DOS 
-CP/M-8) 

Une fois les fichiers en ligne sur I'unite de memoire de masse, le lancemeni de Turbo 
Pascal est tres simple, II suffit de taper TURBO puis d'appuyer sur la touche ENTER. 
Le systems demarre et le messags suivant 



TURBO Pascal system Version 3.02A 

PC-DDS 

Copyright (C) 19B3,B4,85,B6 BORLAND Inc. 



b/w display B0x25 

Include error messages (Y/N)? 
Fig. I : premier atfichage de Turbo Pascal. 



II offre la possibilite de lister les erreurs lors de la compilation. Ensuite, le menu 
principal de TURBO PASCAL suit. 



Logged drive: C 

Active directory: \PASCAL 

Work file: 
Main -file: 

Edit Compile Run Save 

Di r Qui t compi 1 er Opt i ons 

Text: O bytes 
Free: 62024 bytes 
Fig. II : Le menu principal. 
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Les elements de base du langage 




Comme la plupart des langages, Turbo Pascal utilise un vocabulaire compose de 




lettres ou de chiffres et de symboles speciaux. II existe un certain nombre de mots 




reserves, ainsi qu'une bibliotheque d'identificateurs speciaux. 




* ab&olute * external nU * bM 




and file not * shi 




array forward * overlay * string 




begin for of then 




case function or type 




const . goto packed to 




div * inline procednre until 




do if program var 




downto in record while 




ehte label repeat with 




end mod set * xor 




Fig. Ill : Les mots r§serv6s. 




Addr Delay Length Release 




AicTan Delete Ln Rename 




Assign EOF Lo Reset 




Aux EOLN LowVideo Rewrite 




AuxInPtr Erase Lst Round 




AuxOutPrt Execute LstOutPtr Seek 




BlockRead Exit Mark Sin 




BlockWrite Exp Maxlnt SizeOf 




Boolean False Mem SeekEof 




BuELen FilePos MemAvaU SeekEoln 




Byte FUeSize Move Sqr 




Chain FillChar New Sqrt 




Chai Flush NormVideo Str 




Chr Frac Odd Succ 




Close GetMem Ord Swap 




CliEol GotoKY Output Ttext 




CliScr Halt Pi Tnn 




Con HeapPtr Port True 




ConlnPti Hi Pos Trunc 




ConOuPtr lOresult Prt. UpCase 




Concat Input Ptr Usi 




ConstPtr InsLine Random UsrInPtr 




Copy Insert Randomize UsrOutPtr 




Cos Int Read Val 




CrtEiit Integer ReadLn Write 




Crtlnit Kbd Real WiiteLn 




Delliine KeyPressed 




Fig. IV : Identification standard. 




II serait trop long, dans le cadre de cet article, d'expliquer I'ensemble de ces mois. 
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Les performances 

Une recente etude indique que Turbo Pascal serait 26 fois plus rapide que MS- 
PASCAL en compilation. En mode execution, la difference serait dans un rapport de 1 
a 2 en faveur de Turbo Pascal. Enfin, pour un programme donne, la taille du programme 
code serait trois fois plus petite sur Turbo Pascal par rapport a MS-PASCAL 
En fait, le compilateur de TB compile en moyenne de 80 a 100 lignes par seconde. 
La taille maximum du programme code accepte est de 64 Ko en mode execution. 

Turbo Pascal et MS-DOS 

Un des grands avantages de TP est de pouvoir utiliser les procedures se rapportant 

aux repertoires sous MS-DOS. 

II est possible dutiliser les commandes : 

- Cti Dir 

- Mk Dir 

- Rm Dir 

- G et Dir 

De meme, lors du listage par la' commando Dir en menu principal, t'utilisation de jocker 
est autorlsee : 
ex ; DIR *.PAS 

Les options de compilation 

Les options de compilation sont assez nombreuses et bien utiles lors de la mise au 
point d'un programme. 
Elles permettent 



- Definition de la taille mi 

- Definition de la taille mi 

- Definition de la taille 

- Detection des erreurs 



nimum du segment code 
inimum du segment de donnees 
inimum et maximum de la memoire dynamique libre 
"execution 



Grace a cette derniere commande, il est possible de trouver dans le cede source 
lendroit exact oil est placee une erreur dans le listing. 



TURBO EDITOR 

En fait, Turbo Editor est d'abord un programme de traitement de texte specialise dans 
la realisation d'application tournant sous Turbo Pascal. 

II s'agit dun editeur de texte complet qui permet de manipuler des informations texte 
comme : 

- Des caracteres simples 

- Des groupes de caracteres : des mots, des lignes 

- Des groupes de lignes : flots de texte 

- Des fenetres de flots de texte 

- Des blocs de lignes 

- Des fichiers de lignes 

- Des afficfiages ecran 

Afin de fonctionner correctement, TURBO EDITOR devra obligatoirement etre utilise 
sur un TURBO PASCAL egal ou superieur a la version 3.0 et un MS-DOS ou PC, DOS 
version 2.0 ou plus. 

Avec TURBO EDITOR, il est possible de creer son propre editeur de texte. Deux 
exemples intervenants sont fournis par le progiciel. Un editeur classique portant le nom 
de FIRST-ED presente les fonctions generalement implantees sur un editeur. La 
deuxieme demonstration est beaucoup plus interessante. II s'agit d'un editeur 
sophistique portant le nom de MIGROSTAR. Microstar est un editeur de qualite. II est 
conpu pour presenter toutes les capacites de TURBO EDITOR, Les principales 
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caracteristiques sont ; 

- L'annulation des commandes de WORDSTAR 

- Une fonction UNDO 

- Une impression Mullitache rapide en arriere plan 

- Un affichage des repertoires comme dans SIDEKICK 

- Un systeme de menu deroulant 

Le programme MICROSTAR est fourni avec le code source. II convient done de le 
compiler avant son utilisation, Inversement, cette possibilite autorise I'utilisateur a 
apporter ses propres idees. De plus, ceci servira d'excellent exemple a toute personne 
interessee par le PASCAL 




Fig. V : Menu MICROSTAR. 



TOOL BOX 

Nous I'avons deja ecrit, mais a I'origine, PASCAL fut un langage d'initiation a la 

programmation structures. De ce fait, I'une de ses plus grandes faiblesses conceme 

I'utilisation de fictiiers de donnees. 

Afin de pallier ces defauts, cerlains fabricants de compilateurs PASCAL onl ajoute des 

extensions, tels les fichiers indexes, 

TOOL BOX est un ensemble de programmes outils qui augmente les performances du 

Turbo Pascal en gestion de fichiers. 

II contient trois possibilites importantes ; 

- Un systems d'acces 

- Un systeme de tri 

- Un systeme d'installation 

Le systeme d'acces TURBO 

II permet d'acceder a des enregistrements dans un ficbier, en utilisant des cles. De 
plus, vous pouvez egalement acceder aux enregistrements dans un ordre defini, Le 
systeme d'acces turbo est arctiitecture en arbre binaire. II est done surtout utilise pour 
des acces rapides a des informations. 
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Le systeme de tri TURBO 

II utilise un algorithme de tri rapide afin d'assurer un tri performant. Avec cet outil, vous 
pouvez trier n'importe quel type de donnees, que cg soit un article simple ou sur des 
cles multiples, ainsi que differents types de donnees dans le meme programme, 

GINST : le systeme d'installation general 

Get utilitaire permet de configurer TOOL BOX en fonction du type de terminaux utilise. 

Nota : Des cas bien fournis servent d'exemples aux differents chapitres de TOOL 

BOX. 

Les possibJIites en TOOL BOX sont : 

1) Acces standard aux donnees 
1-1 Acces sequentiel 

1-2 Acces aleatoire 

2) Structure des arbres 
2-1 Cles 

2-2 Articles 
2-3 Pages 

3) Gestion des arbres 
3-1 Insertion d'une ole 
3-2 Suppression d'une cle 

Resume des fonctions 

1- Initialisation et mise a jour des fichiers de donnees 

2- Initialisation des ficfiiers d'index 

3- Wise a jour des ficfiiers d'index 

4- Recfiercfie dans les ficfiiers d'index 

Les pages 41 a 48 du manuel sont tres interessantes car elles decrivent les principales 
routines utilisees en gestion de fichiers : 

1- Declaration 

2- Creation de tichiers 

3- Ajout d'enregistrement 

4- Recherche d'enregistrement 

5- Suppression d'enregistrement 

6- Rechercfie sequentielle 

7- Champ status (ficfiiers sans index) 

8- Restauration d'index 

GRAPHIX TOOL BOX 

Grace a GRAPHIX TOOL BOX vous pouvez developper des grapfitques monochromes 
haute resolution afin de donner plus dimpact a vos programmes, GRAPHIX TOOL BOX 
est architecture pour surpasser les cartes graphiques IBM ou Hercules. 
Turbo Grapfiix TOOL BOX constitue un package aux possibilites diverses, Les 
procedures elementaires pemiettent de dessiner ; 

- des points 

- des iignes 

- des rectangles avec un hachurage facultatif 

- des elipses 

- des cercles 

Pour des applications de gestion, ou pour des applications scientifiques, le graphisme 
est un outil tres important. Aussi, avec Graphix Tool Box, rien n'est plus facile que de 
creer : 

- des camemberts avec en-tetes 

- des histogrammes avec hachurage programmable 

- des traces differentes 

- des lissages de courbes 
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- des ajustements de courbes 

- des modelisations de lignes et de solides 

- des axes de coordonnees identifies 

- des graphes de toutes formes 

- des rotations 

- des translations 

Turbo Pascal Graphix Tool Box comprend dans sa disquette programme : 

- un code source pour chaque exemple 

- des outils pour dessiner des graphiques simples 

- des outils pour dessiner des graphiques complexes 

- des routines pour enregistrer et recuperer les graphiques sur disque 

- des outils pour envoyer les images d'ecran vers les imprimantes compatibles IBM 

- une gestion complexe des fenetres graphiques 

- deux differentes polices de caracteres pour les legendes 

- le choix du style du trace de ligne 

- des routines de dessins rapides 

Les differentes figures suivantes donneront une indication sur les possibilites de 

GRAPHIX TOOL BOX. 

Sur la figure 6, nous avons une representation multi -fenetres d'un camembert. 




Fig. VI : Les fenetres. a) Les camemberts. 



Sur la figure 7 nous avons en fond une courbe de base en second plan associee a une 

courbe de lissage qui donne une meilleure presentation. Sur la fenetre, en avant, une 

autre courbe est representee. 

Sur la figure 8, differents examples de presentation sont fournis. La sinusoide est 

dessinee de plusieurs manieres. 

Sur la fenetre inferieure gauche le trace est effectue a I'aide de petits ronds. Sur la 

fenetre inferieure droite, il s'agit d'un trait plein avec presentation de petites croix. 

Enfin, sur la fenetre centrale, nous avons un autre choix de presentation. 
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bj Les fen et res texte. 




Fig. VII : Les courbes. 
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Fig. VIM : Les presentations. 



CONCLUSION 

II ne fait aucun doute, pour personne, que les prix des machines en micro-informatique 
ont subi de tres nettes baisses. BORLAND, avec ses differents progiciels, suit le meme 
chemin. II semble que cela reussisse parfaitemeni 




Fig. iX ; Pliotos des manuels. 



.(■NOTES PERSONNELLES 



Chaque disquette est accompagnee d'un manuel bien realise et bien documente. 
Nous regrettons seulement la qualite des reliures, assez mediocre. Apres quelques 
recherches, certaines pages sautent tres vite. 

Nous avons bien aime les performances des produits TURBO PASCAL. Pour etre 
parfait, il aurait faliu pouvoir enregistrer sur disque les programmes codes et simplifier 
■ les commandes d'utilisation. L'emploi systematique de la touctie de contrdle est plutot 
penible. 

En conclusion, nous dirons que TURBO PASCAL est sans aucun doute un des 
meilleurs choix pour qui desire programmer en PASCAL sur micro-ordinateur. 



ADDITIF 

Pour cloturer cet articule, ii nous a sembie interessant de presenter un programme en 
TURBO PASCAL. 

II s'agit dun programme realisant un nombre aleatoire ; pour en comprendre le 
deroulement, il suffira de lire ies parties remarque du programme. 



program RandomTest ; 

ThiB program tests 
calculates a chi-s 
Chi-square values 



F Random itself. 



alui 



array[0..9D of Integer: 
MS-DOS & PC-DOS Turbo Paaca] 



nonzero, then 



> the 32 bit eet 



to get the current time. This is a 32 bit value, which 15 also stored 
directly into the seed. On some systems, (i.e. the NCR Decision Mate V), 
the clock does not tick, so the time never changes. Randomize checks this, 
and if the clock hasn't changed after a DelaydOO), it asks the user to hi) 
a key. While waiting for the key, it continuously increments two counters. 
These are then stored into the seed. 



ease note: This routine is for MS-Dos/PC-Dos Turbo ONLVi i 



ftX, BX,CX,DX,BP, SI, DI,D5,ES, Flags: Integer; 
Ch : Char; 
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if 11=0) and (J=0) ttiBn begi 
RSEt.AX:=*2C00i 
MSDo5(fiSet); 
I:=RSet.CX; 
J:^RSet.DK; 

DelayllOO); i Thia del =i) 

MSDD5(RSet); 
if (I^RSet.CX) and (J=R5et 



while Keyprpsspd do 

ReadlKbd.Ch): 
Write ('Hit any key to set 1 



i Bmt I and J 1 






I != I+I3; 

J := J+17 
until Keypre^sed; 
Read(Kbd,C:h); 



i Clear keyboc 



■I Absorb the c 



MEinW[DSeg:»12'?3: = I; t This 15 the core of the routine; store a 32 bit J 
MeniWCD5Eg!#lZE]:=J; t seed at locations DSeg:«0129. . . DSeg:*013C J 



Write( 'Enter count: '); 

ReadLn (Count); 

if Count > O then begin 

Writef'Enter seeda (SI 32); '); 

ReadLn(51,S2) ; 

RandDmi2e(51,S2); 

FillChar(Tally,aizEDf (Tally) ,0); 

Jndx :- Random(lO); 
TallyCJndxl := TallyCJndKl + 1 



Sum := 0.0; 

NP := Count/10,0; 

for Indx ; = O to 9 do begin 

Wri te (Tally tlndit]: 51,- 

Suni ;^ Sum + Sqr (TallyCIndx 1-NF 



end. r of program RandomTest > 

Fig. X ; Listing : programme gdn^rant un nombre aleatoire. 



iom nuoiber 5eed J 



sum ^or X-^2 1 
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(enfin paru !) 



3.16 (Suite et fin) L'aff ichage 



t Etude des instructions permettant d'etfectuer ties presentations -ev 

PRINT TAB - PRINT USING - LOCATE - COLOR en mode texte. 
y Presentation en tableaux de touies sortes grace a la pratique des operateura 

MODULO et DIVISION ENTIERE. 
* Beaucoup de programmes utilisent des assemblages de ce 
operateurs... dont la combinaison nest pas toujours facile. 



3.17 Compiements 



t Etude des demieres instructions, fonctions et variables du cycle 1 : FILES. 
KILL. AUTO, ON ERROR GOTO, RESUME, ERR, ERL, DELETE, EDIT, RENUM 
TRON. TROFF, STOP, CONT, KEV ON. KEY OFF. FIX, BEEP. 

k Complements de cycle 1 qui sont maintenant accessibles aux el^ves ; sur la 
precision et les erreurs dues a I'arrondi, sur la selection, les boucles. 



3.18 Graphisme 



t Une etude complete et d6taill6e sur les Instructions graplilques en haute reso- 
lution : SCREEN, P3ET, PRESET, STEP, LINE, CIRCLE, COLOR, POINT 
PAINT, sans eluder aucune des difficultes et 'pieges- classiquas : Tincrusta- 
tion de texte dans le dessin, les .bavures- dues au PAINT mal utilise. 

t Une etude detaillee du langage graphique DRAW, avec ses subtilltes et ses 
pieges (sous-chaines X, parametres variables dans le DRAW, etc.). 

*: De nombreux exercices avec leurs solutions (80) et leurs illustrations sur des 
photos d'ecran en couleur (48 photos). 



3.19. Dessin des courbes 

* Un chapitre separe du graphisme general (chapitre 3.18) de lapon a ce que les 

* Pour les mattieux ; une exceliente revision et illustration des courbes de toutes 
sortes : Y - f (x), courbes parametrees, courbes en coordonnees polaires, 
avec des exemples utiles : courbes d'amortissement. astroide, cardioide. 
decomposition d'une fonction penodjque par une sene de Fourier. 

3.20. Revision generate 

* L'enchainement des notions selon I'ordre -pedagogigue- Qui a ete utilise 
jusqu'ici est bien ditterent de i'ordre -logique-. Autant qu'un cours d'anglais 
suit un ordre dilterent de celui (plus logique ') d'une grammaire anglaise. 

* Tout ce qui a ete enaeigne jusqu'ici resume en 30 pages. Une reference pour 
retrouver la notion dont on a besoin a travets le cours el ses exercices. fulais 
aussi une reflexion sur la structure dun langage intormatique, d'ou une prepa- 
ration a la lecture des cours de PASCAL (par example !]. 

3.21. Tecliniques de mise au point 

* Les ouliis de base : etude des editeurs de lexte, connaissance et interpreta- 



■ [experience que 



3.22. Problemes de synthase - Notions d'analyse 

C'esl a la fois la conclusion, la partie la plus originale et la plus utile de ce cours. 
L'auteur ne se contente pas de fournir une liste de problemes avec leur solution : 
il se met a la place du programmeur debutant en essayanl de decortiguer le -pro- 
cessus de reflexion, qui fait passer de I'enonce dun probleme a sa solution: une 
initiation pratique a I'analyse. 

1 livre troche de 248 pages pages 21 x27, dont 8 pages en couleur 






nouveau! 
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Systemes MIC 



• exploiter toutes les possibilites des systemes MIDI 

• realiser vous-memes un clip video 

• tirer le maximum de vos synthetiseurs 

• installer Chez vous votre studio d'emegistrement 

• tout savoir sur les nouveautes musique et video creatives 

Tout cela chaque mois 
dans Music Video Systemes 

une publication des Editions Frequences chez votre marchand de journaux 
Editions Frequences 1, boulevard Ney 75018 Paris - Tel. 46.07.01.97 



